PROGRAM cercle (input,output); (* entête *) 
VAR
    perimetre, diametre : REAL; (* déclarations *) 
BEGIN
    readln(diametre); (* instruction *) 
    perimetre := 3.141592 * diametre; (* instruction *)
    writeln(diametre,perimetre) (* instruction *) 
END.